(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 13.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    228645,       5608]
NotebookOptionsPosition[    226461,       5570]
NotebookOutlinePosition[    226959,       5589]
CellTagsIndexPosition[    226916,       5586]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"<<", "NumericalDifferentialEquationAnalysis`"}], ";"}]}], "Input",
 CellChangeTimes->{{3.914627007794031*^9, 3.914627017005028*^9}, 
   3.915833737601128*^9, {3.918642737577368*^9, 3.918642746608144*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"461a1470-9fb7-4e19-9881-a772bfa0a0ef"],

Cell[BoxData[{
 RowBox[{"Needs", "[", "\"\<JLink`\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ReinstallJava", "[", 
   RowBox[{"JVMArguments", " ", "\[Rule]", " ", "\"\<-Xmx40960m\>\""}], "]"}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.915844112905559*^9, 3.915844114125866*^9}, 
   3.9158460446219563`*^9, {3.915974672042448*^9, 3.9159746729385033`*^9}, {
   3.915974756984232*^9, 3.915974757744347*^9}, 3.915974909899728*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"0211a539-57e7-4e29-82ba-5f1297c334fc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ngps", "=", "30"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Xs", ",", "Ws"}], "}"}], "=", 
   RowBox[{
    RowBox[{"GaussianQuadratureWeights", "[", 
     RowBox[{"ngps", ",", 
      RowBox[{"-", "1"}], ",", "1", ",", "32"}], "]"}], "\[Transpose]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.915833772855598*^9, 3.915833774087998*^9}, {
   3.9158340773428736`*^9, 3.9158340946005383`*^9}, {3.91583435270757*^9, 
   3.915834365111983*^9}, 3.915834848133199*^9, 3.915834967677231*^9, 
   3.915843651091787*^9, {3.915843710855233*^9, 3.9158437141855173`*^9}, 
   3.915843807938678*^9, {3.915843882466237*^9, 3.915843882898404*^9}, {
   3.91585045620509*^9, 3.915850457191265*^9}, 3.915852060196128*^9, 
   3.9158558610679007`*^9, 3.915856746276433*^9, {3.916446375641344*^9, 
   3.91644637583432*^9}, 3.91644646798393*^9, 3.916446524640256*^9, 
   3.916446587343574*^9, 3.916446649729687*^9, {3.916446729451519*^9, 
   3.916446729590207*^9}, 3.916446792068634*^9, 3.9164468535332756`*^9, {
   3.916446916826687*^9, 3.91644693320032*^9}, {3.916447023879888*^9, 
   3.91644702396886*^9}, {3.916447096191341*^9, 3.916447103929591*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"06efe3ac-ddd5-4e09-9be0-14f96acd54bb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"session", "=", 
   RowBox[{"StartExternalSession", "[", 
    RowBox[{"<|", 
     RowBox[{
      RowBox[{"\"\<System\>\"", "->", "\"\<Python\>\""}], ",", 
      RowBox[{"\"\<ReturnType\>\"", "->", "\"\<Expression\>\""}]}], "|>"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"readGnums", "=", 
   RowBox[{"ExternalFunction", "[", 
    RowBox[{
    "session", ",", 
     "\"\<def readGnums(filename,parseType):\n    if parseType=='float':\n    \
    parse=float\n    elif parseType=='int':\n        parse=int\n    file = \
open(filename,\\\"r\\\")\n    meshes = []\n    mesh = []\n    s = \
file.readline()\n    while s != '':\n        if s[0] != '#':\n            s1 \
= s.rstrip('\\\\n')\n            mesh.append([parse(x) for x in s1.split()])\n\
            s = file.readline()\n        else:\n            \
meshes.append(mesh)\n            mesh = []\n            s = file.readline()\n \
   file.close()\n    return meshes\n\>\""}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.914929603584391*^9, 3.914929620412941*^9}, {
   3.915020021569817*^9, 3.9150200229071054`*^9}, {3.915020091762481*^9, 
   3.915020185107873*^9}, 3.915020343066899*^9, 3.915156732912301*^9},
 CellLabel->"In[7]:=",ExpressionUUID->"83aa48c9-7ba5-42e6-9ff7-ec951efc1ee8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[CapitalPhi]T1", "[", 
     RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", "\[Eta]", ",", 
        SuperscriptBox["\[Eta]", "2"], ",", "\[Xi]", ",", 
        RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
        RowBox[{
         SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
        SuperscriptBox["\[Eta]", "2"]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", 
        RowBox[{"2", " ", "\[Eta]"}], ",", "0", ",", "\[Xi]", ",", 
        RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}]}], "}"}]}], "}"}]}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"\[CapitalPhi]Tn", ",", " ", 
    RowBox[{"n", "=", 
     RowBox[{"1", "~", "13"}]}], ",", 
    "\:8868\:793aTn\:5355\:5143\:7c7b\:578b\:7684\:57fa\:51fd\:6570\:53ca\
\:5176\:504f\:5bfc\:6570", "\:3002", 
    "\:8be5\:51fd\:6570\:8fd4\:56de\:4e09\:884c\:6570\:636e", "\:ff0c", 
    "\:7b2c\:4e00\:884c\:4e3a\:57fa\:51fd\:6570", "\:ff0c", 
    "\:7b2c\:4e8c\:884c\:4e3a\:57fa\:51fd\:6570\:5173\:4e8e\[Xi]\:7684\:504f\
\:5bfc", "\:ff0c", 
    "\:7b2c\:4e09\:884c\:4e3a\:57fa\:51fd\:6570\:5173\:4e8e\[Eta]\:7684\:504f\
\:5bfc"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T2", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "\[Eta]"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "\[Xi]"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T3", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "\[Xi]", ",", "0"}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T4", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Xi]", 
       ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T5", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", 
       "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T6", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T7", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T8", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", 
       ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T9", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       SuperscriptBox["\[Xi]", "8"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "8"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       SuperscriptBox["\[Xi]", "8"]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T10", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", 
       ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       RowBox[{"2", " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", "0"}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T11", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{"2", " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", "0"}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T12", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", 
       ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T13", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       SuperscriptBox["\[Xi]", "8"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       SuperscriptBox["\[Xi]", "8"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T14", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       SuperscriptBox["\[Eta]", "5"], ",", 
       SuperscriptBox["\[Eta]", "6"], ",", 
       SuperscriptBox["\[Eta]", "7"], ",", 
       SuperscriptBox["\[Eta]", "8"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       SuperscriptBox["\[Xi]", "4"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       SuperscriptBox["\[Eta]", "5"], ",", 
       SuperscriptBox["\[Eta]", "6"], ",", 
       SuperscriptBox["\[Eta]", "7"], ",", 
       SuperscriptBox["\[Eta]", "8"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T15", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       SuperscriptBox["\[Xi]", "8"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "8"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "7"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       SuperscriptBox["\[Xi]", "8"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "8"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T16", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Xi]", 
       ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T17", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       SuperscriptBox["\[Eta]", "5"], ",", 
       SuperscriptBox["\[Eta]", "6"], ",", 
       SuperscriptBox["\[Eta]", "7"], ",", 
       SuperscriptBox["\[Eta]", "8"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       SuperscriptBox["\[Eta]", "5"], ",", 
       SuperscriptBox["\[Eta]", "6"], ",", 
       SuperscriptBox["\[Eta]", "7"], ",", 
       SuperscriptBox["\[Eta]", "8"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T18", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", 
       ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T19", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       SuperscriptBox["\[Eta]", "5"], ",", 
       SuperscriptBox["\[Eta]", "6"], ",", 
       SuperscriptBox["\[Eta]", "7"], ",", 
       SuperscriptBox["\[Eta]", "8"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       SuperscriptBox["\[Xi]", "8"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "8"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       SuperscriptBox["\[Eta]", "5"], ",", 
       SuperscriptBox["\[Eta]", "6"], ",", 
       SuperscriptBox["\[Eta]", "7"], ",", 
       SuperscriptBox["\[Eta]", "8"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "8"], " ", 
        SuperscriptBox["\[Xi]", "7"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", "\[Xi]"}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", "\[Xi]"}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "7"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "7"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "8"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Eta]", "5"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Eta]", "6"], " ", 
        SuperscriptBox["\[Xi]", "8"]}], ",", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Eta]", "7"], " ", 
        SuperscriptBox["\[Xi]", "8"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T20", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T21", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "6"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "5"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", 
       "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T22", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T23", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T24", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "4"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       SuperscriptBox["\[Xi]", "4"], ",", 
       SuperscriptBox["\[Xi]", "5"], ",", 
       SuperscriptBox["\[Xi]", "6"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", 
       ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       SuperscriptBox["\[Eta]", "4"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "4"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Xi]", "4"]}], ",", 
       RowBox[{"6", " ", 
        SuperscriptBox["\[Xi]", "5"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", "0", ",", "0", ",", 
       "0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T25", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T26", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", "\[Xi]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Eta]", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       SuperscriptBox["\[Eta]", "3"], ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "3"], " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"]}], ",", "0", ",", "\[Xi]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T27", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       SuperscriptBox["\[Xi]", "3"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "3"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T28", "[", 
    RowBox[{"\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", "\[Eta]", ",", 
       RowBox[{"\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}], ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}], ",", 
       RowBox[{
        SuperscriptBox["\[Eta]", "2"], " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", 
       RowBox[{"2", " ", "\[Xi]"}], ",", "0", ",", "\[Eta]", ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", "0", ",", 
       SuperscriptBox["\[Eta]", "2"], ",", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Eta]", "2"], " ", "\[Xi]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1", ",", "\[Xi]", ",", 
       SuperscriptBox["\[Xi]", "2"], ",", 
       RowBox[{"2", " ", "\[Eta]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", "\[Xi]"}], ",", 
       RowBox[{"2", " ", "\[Eta]", " ", 
        SuperscriptBox["\[Xi]", "2"]}]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalPhi]T", "[", 
    RowBox[{"T_", ",", "\[Xi]_", ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"Which", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"T", "==", "1"}], ",", 
     RowBox[{"\[CapitalPhi]T1", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "2"}], ",", 
     RowBox[{"\[CapitalPhi]T2", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "3"}], ",", 
     RowBox[{"\[CapitalPhi]T3", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "4"}], ",", 
     RowBox[{"\[CapitalPhi]T4", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "5"}], ",", 
     RowBox[{"\[CapitalPhi]T5", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "6"}], ",", 
     RowBox[{"\[CapitalPhi]T6", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "7"}], ",", 
     RowBox[{"\[CapitalPhi]T7", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "8"}], ",", 
     RowBox[{"\[CapitalPhi]T8", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "9"}], ",", 
     RowBox[{"\[CapitalPhi]T9", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "10"}], ",", 
     RowBox[{"\[CapitalPhi]T10", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "11"}], ",", 
     RowBox[{"\[CapitalPhi]T11", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "12"}], ",", 
     RowBox[{"\[CapitalPhi]T12", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "13"}], ",", 
     RowBox[{"\[CapitalPhi]T13", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "14"}], ",", 
     RowBox[{"\[CapitalPhi]T14", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "15"}], ",", 
     RowBox[{"\[CapitalPhi]T15", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "16"}], ",", 
     RowBox[{"\[CapitalPhi]T16", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "17"}], ",", 
     RowBox[{"\[CapitalPhi]T17", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "18"}], ",", 
     RowBox[{"\[CapitalPhi]T18", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "19"}], ",", 
     RowBox[{"\[CapitalPhi]T19", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "20"}], ",", 
     RowBox[{"\[CapitalPhi]T20", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "21"}], ",", 
     RowBox[{"\[CapitalPhi]T21", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "22"}], ",", 
     RowBox[{"\[CapitalPhi]T22", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "23"}], ",", 
     RowBox[{"\[CapitalPhi]T23", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "24"}], ",", 
     RowBox[{"\[CapitalPhi]T24", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "25"}], ",", 
     RowBox[{"\[CapitalPhi]T25", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "26"}], ",", 
     RowBox[{"\[CapitalPhi]T26", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "27"}], ",", 
     RowBox[{"\[CapitalPhi]T27", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"T", "==", "28"}], ",", 
     RowBox[{"\[CapitalPhi]T28", "[", 
      RowBox[{"\[Xi]", ",", "\[Eta]"}], "]"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.9150212388836036`*^9, 3.915021244583067*^9}, {
   3.915021281828623*^9, 3.915021442487384*^9}, {3.915067368977808*^9, 
   3.91506748957085*^9}, {3.915070139457048*^9, 3.91507013974756*^9}, {
   3.9151611280173645`*^9, 3.915161135928857*^9}, 3.915161349145601*^9, {
   3.915829541939557*^9, 3.915829551377474*^9}, {3.915874771429231*^9, 
   3.915874797095161*^9}, {3.915973557069143*^9, 3.915973565352227*^9}, {
   3.91600578113903*^9, 3.916005783375849*^9}, {3.91600626161897*^9, 
   3.916006285318722*^9}, {3.916891631730206*^9, 3.916891642055578*^9}, {
   3.9186420570078163`*^9, 3.91864207256624*^9}, {3.920708782369275*^9, 
   3.9207087961930227`*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"7d94a1cd-bdd2-495a-aaf2-26f3623a5ee6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"shapeFunc", "[", 
    RowBox[{"invHTs_", ",", "elementType_", ",", "\[Xi]_", ",", "\[Eta]_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\[Phi]", ",", "\[Phi]d\[Xi]", ",", "\[Phi]d\[Eta]", ",", "invHT"}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"invHT", "=", 
       RowBox[{"invHTs", "[", 
        RowBox[{"[", "elementType", "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\[Phi]", ",", "\[Phi]d\[Xi]", ",", "\[Phi]d\[Eta]"}], "}"}], 
       "=", 
       RowBox[{"\[CapitalPhi]T", "[", 
        RowBox[{"elementType", ",", "\[Xi]", ",", "\[Eta]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"invHT", ".", "\[Phi]"}], ",", 
         RowBox[{"invHT", ".", "\[Phi]d\[Xi]"}], ",", 
         RowBox[{"invHT", ".", "\[Phi]d\[Eta]"}]}], "}"}], "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.915018199825402*^9, 3.915018315782323*^9}, {
   3.9150183669237*^9, 3.915018394442823*^9}, {3.915018456754319*^9, 
   3.915018466802598*^9}, {3.915018499492739*^9, 3.915018571649328*^9}, 
   3.91501894840098*^9, {3.915021158021239*^9, 3.915021220931512*^9}, {
   3.915021261476291*^9, 3.915021271312904*^9}, {3.9150660124105797`*^9, 
   3.9150660872894077`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"e1b1a601-a235-48bf-aca5-649f7ad7fcbf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"jacobi", "[", 
    RowBox[{
    "pts_", ",", "invHTs_", ",", "elementType_", ",", "\[Xi]_", ",", 
     "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "xvec", ",", "yvec", ",", "shapeVal", ",", "shaped\[Xi]", ",", 
       "shaped\[Eta]", ",", "j"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"xvec", "=", 
       RowBox[{"pts", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"yvec", "=", 
       RowBox[{"pts", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"shapeVal", ",", "shaped\[Xi]", ",", "shaped\[Eta]"}], "}"}], 
       "=", 
       RowBox[{"shapeFunc", "[", 
        RowBox[{"invHTs", ",", "elementType", ",", "\[Xi]", ",", "\[Eta]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"j", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"shaped\[Xi]", ".", "xvec"}], ",", 
           RowBox[{"shaped\[Xi]", ".", "yvec"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"shaped\[Eta]", ".", "xvec"}], ",", 
           RowBox[{"shaped\[Eta]", ".", "yvec"}]}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "j", "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.9150655783884287`*^9, 3.915065606754203*^9}, {
   3.915065657411758*^9, 3.915065714319002*^9}, {3.9150657522400107`*^9, 
   3.915065787618348*^9}, {3.915065827373524*^9, 3.915065850459292*^9}, 
   3.9150665685490966`*^9, {3.915066614428438*^9, 3.9150667140728707`*^9}, {
   3.915066759329791*^9, 3.915066819974071*^9}, {3.915184540886195*^9, 
   3.915184546385993*^9}, {3.9151845850365286`*^9, 3.915184611394288*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"1029fe7f-2329-49a1-aee6-b78488f1ca84"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D0", "[", 
    RowBox[{"E0_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"E1", ",", "v1", ",", "g22"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"E0\:8868\:793a\:5f39\:6027\:6a21\:91cf", ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"v\:8868\:793a\:6cca\:677e\:6bd4", ";"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "\:8fd4\:56de\:5404\:5411\:540c\:6027\:5f39\:6027\:4f53", "\:ff0c", 
       "\:5f39\:6027\:5e38\:6570\:77e9\:9635", "\:ff1b"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"E1", "=", 
       RowBox[{"E0", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "v"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "v"}], ")"}], "*", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", "v"}]}], ")"}]}], ")"}]}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"v1", "=", 
       RowBox[{"v", "/", 
        RowBox[{"(", 
         RowBox[{"1", "-", "v"}], ")"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"g22", "=", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", "v"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", "*", 
          RowBox[{"(", 
           RowBox[{"1", "-", "v"}], ")"}]}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", 
       RowBox[{"E1", "*", 
        RowBox[{"{", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "v1", ",", "v1", ",", "0", ",", "0", ",", "0"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"v1", ",", "1", ",", "v1", ",", "0", ",", "0", ",", "0"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"v1", ",", "v1", ",", "1", ",", "0", ",", "0", ",", "0"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0", ",", "g22", ",", "0", ",", "0"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "g22", ",", "0"}], 
           "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "g22"}], 
           "}"}]}], "\[IndentingNewLine]", "}"}]}], "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.840508183277246*^9, 3.8405081961351624`*^9}, {
   3.8405082318356514`*^9, 3.840508251036581*^9}, 3.845518946487322*^9, 
   3.882698571046735*^9, {3.894188638692647*^9, 3.894188745709874*^9}, 
   3.894189131909699*^9, 3.91481003319595*^9, {3.9148125876854725`*^9, 
   3.914812620915933*^9}, 3.914813949494074*^9, {3.915072837264725*^9, 
   3.915072848192379*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"f614cef0-cd04-44e8-be4b-dbcd431e2e8f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"B1", "[", 
    RowBox[{
    "gcoord_", ",", "gnum_", ",", "elementNo_", ",", "invHTs_", ",", "\[Xi]_",
      ",", "\[Eta]_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "\:6ce8\:610f", "\:ff1a", 
        "\:8fd9\:91cc\:7684gnum\:6bcf\:4e00\:884c\:7684\:7b2c\:4e00\:4e2a\
\:6570\:5b57\:662f\:5355\:5143\:7c7b\:578b\:53f7\:7801", "\:ff0c", 
        "\:7b2c\:4e8c\:4e2a\:6570\:5f00\:59cb\:624d\:662f\:5355\:5143\:8282\
\:70b9\:7f16\:53f7"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
      "m", ",", "r", ",", "I3", ",", "elementType", ",", "num", ",", "num1", 
       ",", "\[IndentingNewLine]", "shapeVal", ",", "shaped\[Xi]", ",", 
       "shaped\[Eta]", ",", "\[IndentingNewLine]", "NU", ",", "NUd\[Xi]", ",",
        "NUd\[Eta]", ",", "\[IndentingNewLine]", "inode", ",", "ni", ",", 
       "\[IndentingNewLine]", "NU1", ",", "NU2", ",", "NU3", ",", 
       "\[IndentingNewLine]", "NU1d\[Xi]", ",", "NU2d\[Xi]", ",", "NU3d\[Xi]",
        ",", "\[IndentingNewLine]", "NU1d\[Eta]", ",", "NU2d\[Eta]", ",", 
       "NU3d\[Eta]", ",", "\[IndentingNewLine]", "pts", ",", "jac", ",", 
       "ijac", ",", "\[IndentingNewLine]", "NU1dy", ",", "NU1dz", ",", 
       "\[IndentingNewLine]", "NU2dy", ",", "NU2dz", ",", 
       "\[IndentingNewLine]", "NU3dy", ",", "NU3dz"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "gcoord", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"r", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"6", ",", 
           RowBox[{"6", "m"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"I3", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"elementType", "=", 
       RowBox[{"gnum", "[", 
        RowBox[{"[", 
         RowBox[{"elementNo", ",", "1"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"num", "=", 
       RowBox[{"gnum", "[", 
        RowBox[{"[", 
         RowBox[{"elementNo", ",", 
          RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"shapeVal", ",", "shaped\[Xi]", ",", "shaped\[Eta]"}], "}"}], 
       "=", 
       RowBox[{"shapeFunc", "[", 
        RowBox[{"invHTs", ",", "elementType", ",", "\[Xi]", ",", "\[Eta]"}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"NU", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", 
           RowBox[{"3", "m"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"NUd\[Xi]", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", 
           RowBox[{"3", "m"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"NUd\[Eta]", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", 
           RowBox[{"3", "m"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"inode", "=", "1"}], ",", 
        RowBox[{"inode", "<=", 
         RowBox[{"Length", "[", "num", "]"}]}], ",", 
        RowBox[{"inode", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ni", "=", 
          RowBox[{"num", "[", 
           RowBox[{"[", "inode", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"NU", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"3", "*", 
                RowBox[{"(", 
                 RowBox[{"ni", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
              RowBox[{"3", "*", "ni"}]}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"shapeVal", "[", 
            RowBox[{"[", "inode", "]"}], "]"}], "*", "I3"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"NUd\[Xi]", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"3", "*", 
                RowBox[{"(", 
                 RowBox[{"ni", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
              RowBox[{"3", "*", "ni"}]}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"shaped\[Xi]", "[", 
            RowBox[{"[", "inode", "]"}], "]"}], "*", "I3"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"NUd\[Eta]", "[", 
           RowBox[{"[", 
            RowBox[{";;", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"3", "*", 
                RowBox[{"(", 
                 RowBox[{"ni", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
              RowBox[{"3", "*", "ni"}]}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"shaped\[Eta]", "[", 
            RowBox[{"[", "inode", "]"}], "]"}], "*", "I3"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NU1", ",", "NU2", ",", "NU3"}], "}"}], "=", "NU"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NU1d\[Xi]", ",", "NU2d\[Xi]", ",", "NU3d\[Xi]"}], "}"}], "=",
        "NUd\[Xi]"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NU1d\[Eta]", ",", "NU2d\[Eta]", ",", "NU3d\[Eta]"}], "}"}], 
       "=", "NUd\[Eta]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"pts", "=", 
       RowBox[{"gcoord", "[", 
        RowBox[{"[", 
         RowBox[{"num", ",", ";;"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"jac", "=", 
       RowBox[{"jacobi", "[", 
        RowBox[{
        "pts", ",", "invHTs", ",", "elementType", ",", "\[Xi]", ",", 
         "\[Eta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"num1", "=", 
         RowBox[{"gvertex", "[", 
          RowBox[{"[", 
           RowBox[{"elementNo", ",", ";;"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"pts", "=", 
         RowBox[{"gcoord", "[", 
          RowBox[{"[", 
           RowBox[{"num1", ",", ";;"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"jac", "=", 
         RowBox[{"jacobi", "[", 
          RowBox[{
          "pts", ",", "invHTs", ",", "2", ",", "\[Xi]", ",", "\[Eta]"}], 
          "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"ijac", "=", 
       RowBox[{"Inverse", "[", "jac", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NU1dy", ",", "NU1dz"}], "}"}], "=", 
       RowBox[{"ijac", ".", 
        RowBox[{"{", 
         RowBox[{"NU1d\[Xi]", ",", "NU1d\[Eta]"}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NU2dy", ",", "NU2dz"}], "}"}], "=", 
       RowBox[{"ijac", ".", 
        RowBox[{"{", 
         RowBox[{"NU2d\[Xi]", ",", "NU2d\[Eta]"}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"NU3dy", ",", "NU3dz"}], "}"}], "=", 
       RowBox[{"ijac", ".", 
        RowBox[{"{", 
         RowBox[{"NU3d\[Xi]", ",", "NU3d\[Eta]"}], "}"}]}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"3", "m"}], "+", "1"}], ";;", 
           RowBox[{"6", "m"}]}]}], "]"}], "]"}], "=", "NU1"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"1", ";;", 
           RowBox[{"3", "m"}]}]}], "]"}], "]"}], "=", "NU2dy"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", 
          RowBox[{"1", ";;", 
           RowBox[{"3", "m"}]}]}], "]"}], "]"}], "=", "NU3dz"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", 
          RowBox[{"1", ";;", 
           RowBox[{"3", "m"}]}]}], "]"}], "]"}], "=", 
       RowBox[{"NU2dz", "+", "NU3dy"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"5", ",", 
          RowBox[{"1", ";;", 
           RowBox[{"3", "m"}]}]}], "]"}], "]"}], "=", "NU1dz"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"5", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"3", "m"}], "+", "1"}], ";;", 
           RowBox[{"6", "m"}]}]}], "]"}], "]"}], "=", "NU3"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"6", ",", 
          RowBox[{"1", ";;", 
           RowBox[{"3", "m"}]}]}], "]"}], "]"}], "=", "NU1dy"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"r", "[", 
        RowBox[{"[", 
         RowBox[{"6", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"3", "m"}], "+", "1"}], ";;", 
           RowBox[{"6", "m"}]}]}], "]"}], "]"}], "=", "NU2"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "r", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.840508183277246*^9, 3.8405081961351624`*^9}, {
   3.8405082318356514`*^9, 3.840508251036581*^9}, 3.845518946487322*^9, 
   3.882698571046735*^9, {3.894188638692647*^9, 3.894188745709874*^9}, 
   3.894189131909699*^9, 3.91481003319595*^9, {3.9148125876854725`*^9, 
   3.914812620915933*^9}, 3.914813949494074*^9, 3.914814004563515*^9, {
   3.914815906296462*^9, 3.914815913975545*^9}, {3.91481594850565*^9, 
   3.9148160354225507`*^9}, {3.9148160947825336`*^9, 3.914816144318592*^9}, {
   3.914816184329018*^9, 3.914816225224687*^9}, {3.9148162866649675`*^9, 
   3.9148162883746543`*^9}, {3.914816395298266*^9, 3.914816488813742*^9}, {
   3.914816538473494*^9, 3.9148166077394867`*^9}, {3.914816712704388*^9, 
   3.9148167908103952`*^9}, {3.914816830544463*^9, 3.914816875946299*^9}, {
   3.914816956621107*^9, 3.9148169603519344`*^9}, {3.914817035503628*^9, 
   3.914817139023039*^9}, {3.9148172325113215`*^9, 3.914817282157863*^9}, 
   3.914817465908275*^9, {3.9148175694564962`*^9, 3.91481763158027*^9}, {
   3.914817824089408*^9, 3.914817944274311*^9}, 3.915072219989532*^9, {
   3.9150725081078424`*^9, 3.915072526056328*^9}, {3.91507266268874*^9, 
   3.915072694438026*^9}, {3.915072731984373*^9, 3.915072757472151*^9}, 
   3.915073172086096*^9, {3.915074567377853*^9, 3.915074572348742*^9}, {
   3.9150746100155973`*^9, 3.915074619503333*^9}, {3.915074730600767*^9, 
   3.915074797915625*^9}, {3.915074882119733*^9, 3.915074882422877*^9}, {
   3.915074958037074*^9, 3.91507497370673*^9}, {3.915075011409128*^9, 
   3.915075091513736*^9}, {3.915075132210026*^9, 3.915075181975762*^9}, {
   3.915075244926383*^9, 3.915075347802883*^9}, {3.915075386473294*^9, 
   3.915075639654185*^9}, {3.915079362511136*^9, 3.91507937985342*^9}, {
   3.915142439062696*^9, 3.915142491063706*^9}, {3.915184631729067*^9, 
   3.915184667156046*^9}, {3.915184708429662*^9, 3.915184710930253*^9}, {
   3.915184754087616*^9, 3.9151848093499975`*^9}, {3.9151848438287225`*^9, 
   3.9151848455685253`*^9}, 3.915187545075085*^9, {3.9153139921617503`*^9, 
   3.915314047764478*^9}, 3.9153152273921146`*^9, 3.915315344543526*^9, {
   3.915315429327593*^9, 3.915315433207104*^9}, {3.9158552462904105`*^9, 
   3.915855256503755*^9}, {3.9158557156734524`*^9, 3.915855716780116*^9}, {
   3.916445595098218*^9, 3.9164456058930945`*^9}, {3.916445654691342*^9, 
   3.916445664793358*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"550a052d-cdbf-4fa9-99e9-c7bdf53f0a42"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"k0", "[", 
    RowBox[{"gcoord_", ",", "gnum_", ",", "invHTs_", ",", "E0_", ",", "v_"}], 
    "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "m", ",", "k", ",", "d", ",", "nels", ",", "iel", ",", "num", ",", 
       "elementType", ",", "\[IndentingNewLine]", "pts", ",", "i", ",", "j", 
       ",", "\[Xi]", ",", "\[Eta]", ",", "wi", ",", "wj", ",", "jac", ",", 
       "b1"}], "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "\:6ce8\:610f", "\:ff1a", 
       "\:8fd9\:91cc\:7684gnum\:6bcf\:4e00\:884c\:7684\:7b2c\:4e00\:4e2a\:6570\
\:5b57\:662f\:5355\:5143\:7c7b\:578b\:53f7\:7801", "\:ff0c", 
       "\:7b2c\:4e8c\:4e2a\:6570\:5f00\:59cb\:624d\:662f\:5355\:5143\:8282\
\:70b9\:7f16\:53f7"}], " ", "*)"}], "\n", 
     RowBox[{
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "gcoord", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"k", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"6", "m"}], ",", 
           RowBox[{"6", "m"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"d", "=", 
       RowBox[{"D0", "[", 
        RowBox[{"E0", ",", "v"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nels", "=", 
       RowBox[{"Length", "[", "gnum", "]"}]}], ";", "\n", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"iel", "=", "1"}], ",", 
        RowBox[{"iel", "<=", "nels"}], ",", 
        RowBox[{"iel", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"num1", "=", 
           RowBox[{"gvertex", "[", 
            RowBox[{"[", 
             RowBox[{"iel", ",", ";;"}], "]"}], "]"}]}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"elementType", "=", 
          RowBox[{"gnum", "[", 
           RowBox[{"[", 
            RowBox[{"iel", ",", "1"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"num", "=", 
          RowBox[{"gnum", "[", 
           RowBox[{"[", 
            RowBox[{"iel", ",", 
             RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"pts", "=", 
          RowBox[{"gcoord", "[", 
           RowBox[{"[", 
            RowBox[{"num", ",", ";;"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "<=", "ngps"}], ",", 
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"\[Xi]", "=", 
             RowBox[{"Xs", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ";", 
            RowBox[{"wi", "=", 
             RowBox[{"Ws", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"j", "=", "1"}], ",", 
              RowBox[{"j", "<=", "ngps"}], ",", 
              RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"\[Eta]", "=", 
                RowBox[{"Xs", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], ";", 
               RowBox[{"wj", "=", 
                RowBox[{"Ws", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"jac", "=", 
                RowBox[{"jacobi", "[", 
                 RowBox[{
                 "pts", ",", "invHTs", ",", "elementType", ",", "\[Xi]", ",", 
                  "\[Eta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"b1", "=", 
                RowBox[{"B1", "[", 
                 RowBox[{
                 "gcoord", ",", "gnum", ",", "iel", ",", "invHTs", ",", 
                  "\[Xi]", ",", "\[Eta]"}], "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"k", "=", 
                RowBox[{"k", "+", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"b1", "\[Transpose]"}], ".", "d", ".", "b1"}], "*",
                   "wi", "*", "wj", "*", 
                  RowBox[{"Det", "[", "jac", "]"}]}]}]}], ";"}]}], 
             "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
          "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\n", 
      RowBox[{"Return", "[", "k", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.915142525157364*^9, 3.915142538499735*^9}, 
   3.915142570950464*^9, {3.915142659598997*^9, 3.9151427111078*^9}, {
   3.915142742790423*^9, 3.9151427431567993`*^9}, {3.915142777519206*^9, 
   3.9151431264909544`*^9}, {3.9151565788443604`*^9, 
   3.9151565899312077`*^9}, {3.915163400393331*^9, 3.915163405541296*^9}, {
   3.9151848761102657`*^9, 3.9151848777131853`*^9}, {3.915184969217097*^9, 
   3.9151850101518927`*^9}, {3.915185047150854*^9, 3.915185079269761*^9}, 
   3.915187505672373*^9, {3.9151875606031823`*^9, 3.915187560992516*^9}, {
   3.915314072918929*^9, 3.9153140819065604`*^9}, {3.915314118705095*^9, 
   3.9153141442329454`*^9}, {3.915834201215091*^9, 3.9158343386955514`*^9}, {
   3.915834383463963*^9, 3.915834389753383*^9}, {3.915834444753025*^9, 
   3.915834560395932*^9}, {3.915855448453619*^9, 3.915855496629533*^9}, 
   3.91585573405835*^9, 3.915856362972161*^9, {3.915856428333039*^9, 
   3.915856435838997*^9}, {3.916445909432917*^9, 3.916445963534994*^9}, 
   3.9306460703091745`*^9},
 CellLabel->"In[42]:=",ExpressionUUID->"742209d4-4a56-47c0-9ceb-d58e701f2f48"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"m0", "[", 
    RowBox[{"gcoord_", ",", "gnum_", ",", "invHTs_", ",", "\[Rho]_"}], "]"}], 
   ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
      "m", ",", "nels", ",", "I3", ",", "iel", ",", "i", ",", "j", ",", 
       "\[Xi]", ",", "\[Eta]", ",", "wi", ",", "wj", ",", "num", ",", "num1", 
       ",", "\[IndentingNewLine]", "elementType", ",", "pts", ",", "jac", ",",
        "invHT", ",", "\[Phi]", ",", "\[IndentingNewLine]", "shapeVal", ",", 
       "NU", ",", "inode", ",", "ni", ",", "ret"}], "\[IndentingNewLine]", 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "\:6ce8\:610f", "\:ff1a", 
       "\:8fd9\:91cc\:7684gnum\:6bcf\:4e00\:884c\:7684\:7b2c\:4e00\:4e2a\:6570\
\:5b57\:662f\:5355\:5143\:7c7b\:578b\:53f7\:7801", "\:ff0c", 
       "\:7b2c\:4e8c\:4e2a\:6570\:5f00\:59cb\:624d\:662f\:5355\:5143\:8282\
\:70b9\:7f16\:53f7"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"m", "=", 
       RowBox[{"Length", "[", "gcoord", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"ret", "=", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"3", "m"}], ",", 
           RowBox[{"3", "m"}]}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"nels", "=", 
       RowBox[{"Length", "[", "gnum", "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"I3", "=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"iel", "=", "1"}], ",", 
        RowBox[{"iel", "<=", "nels"}], ",", 
        RowBox[{"iel", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"num", "=", 
          RowBox[{"gnum", "[", 
           RowBox[{"[", 
            RowBox[{"iel", ",", 
             RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"num1", "=", 
            RowBox[{"gvertex", "[", 
             RowBox[{"[", 
              RowBox[{"iel", ",", ";;"}], "]"}], "]"}]}], ";"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"elementType", "=", 
          RowBox[{"gnum", "[", 
           RowBox[{"[", 
            RowBox[{"iel", ",", "1"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"invHT", "=", 
          RowBox[{"invHTs", "[", 
           RowBox[{"[", "elementType", "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"pts", "=", 
          RowBox[{"gcoord", "[", 
           RowBox[{"[", 
            RowBox[{"num", ",", ";;"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{"For", "[", 
          RowBox[{
           RowBox[{"i", "=", "1"}], ",", 
           RowBox[{"i", "<=", "ngps"}], ",", 
           RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"\[Xi]", "=", 
             RowBox[{"Xs", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ";", 
            RowBox[{"wi", "=", 
             RowBox[{"Ws", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"For", "[", 
             RowBox[{
              RowBox[{"j", "=", "1"}], ",", 
              RowBox[{"j", "<=", "ngps"}], ",", 
              RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"\[Eta]", "=", 
                RowBox[{"Xs", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], ";", 
               RowBox[{"wj", "=", 
                RowBox[{"Ws", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"jac", "=", 
                RowBox[{"jacobi", "[", 
                 RowBox[{
                 "pts", ",", "invHTs", ",", "elementType", ",", "\[Xi]", ",", 
                  "\[Eta]"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"\[Phi]", "=", 
                RowBox[{
                 RowBox[{"\[CapitalPhi]T", "[", 
                  RowBox[{"elementType", ",", "\[Xi]", ",", "\[Eta]"}], "]"}],
                  "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
               RowBox[{"shapeVal", "=", 
                RowBox[{"invHT", ".", "\[Phi]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"NU", "=", 
                RowBox[{"ConstantArray", "[", 
                 RowBox[{"0.0", ",", 
                  RowBox[{"{", 
                   RowBox[{"3", ",", 
                    RowBox[{"3", "m"}]}], "}"}]}], "]"}]}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"For", "[", 
                RowBox[{
                 RowBox[{"inode", "=", "1"}], ",", 
                 RowBox[{"inode", "<=", 
                  RowBox[{"Length", "[", "num", "]"}]}], ",", 
                 RowBox[{"inode", "++"}], ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"ni", "=", 
                   RowBox[{"num", "[", 
                    RowBox[{"[", "inode", "]"}], "]"}]}], ";", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"NU", "[", 
                    RowBox[{"[", 
                    RowBox[{";;", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"3", "*", 
                    RowBox[{"(", 
                    RowBox[{"ni", "-", "1"}], ")"}]}], "+", "1"}], ";;", 
                    RowBox[{"3", "*", "ni"}]}]}], "]"}], "]"}], "=", 
                   RowBox[{
                    RowBox[{"shapeVal", "[", 
                    RowBox[{"[", "inode", "]"}], "]"}], "*", "I3"}]}], 
                  ";"}]}], "\[IndentingNewLine]", "]"}], ";", 
               "\[IndentingNewLine]", 
               RowBox[{"ret", "=", 
                RowBox[{"ret", "+", 
                 RowBox[{"\[Rho]", "*", 
                  RowBox[{
                   RowBox[{"NU", "\[Transpose]"}], ".", "NU"}], "*", "wi", 
                  "*", "wj", "*", 
                  RowBox[{"Det", "[", "jac", "]"}]}]}]}], ";"}]}], 
             "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", 
          "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"Return", "[", "ret", "]"}], ";"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.915162202447184*^9, 3.9151623611043687`*^9}, {
   3.91516239401485*^9, 3.915162425247701*^9}, {3.915162478221159*^9, 
   3.9151624842159977`*^9}, {3.915162533491469*^9, 3.915162680145549*^9}, {
   3.915162711273845*^9, 3.9151627415472946`*^9}, {3.915163129583254*^9, 
   3.9151631304277334`*^9}, 3.9151851118511353`*^9, {3.9151851617119226`*^9, 
   3.91518519341551*^9}, {3.915185236022663*^9, 3.915185237577874*^9}, 
   3.9151876038464265`*^9, {3.915187697106273*^9, 3.915187697254834*^9}, {
   3.915189208279252*^9, 3.915189219961874*^9}, {3.915314166202113*^9, 
   3.9153141947933908`*^9}, 3.915314248341882*^9, {3.915314390685813*^9, 
   3.915314407277896*^9}, {3.915834586994729*^9, 3.915834720563597*^9}, {
   3.91585552104467*^9, 3.915855556413336*^9}, 3.915855591400374*^9, {
   3.916445707104244*^9, 3.916445732605265*^9}, 3.930646074274748*^9},
 CellLabel->"In[43]:=",ExpressionUUID->"3fcbed99-fe9f-4bc9-bdde-ff033e1389f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"showMesh", "[", 
    RowBox[{"gcoord_", ",", "gnum_"}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nodes", ",", "elements", ",", "pols", ",", "i"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"nodes", "=", "gcoord"}], ";", "\[IndentingNewLine]", 
      RowBox[{"elements", "=", 
       RowBox[{"gnum", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", 
          RowBox[{"2", ";;"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"pols", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0.0", ",", 
         RowBox[{"{", 
          RowBox[{"Length", "[", "elements", "]"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"i", "<=", 
         RowBox[{"Length", "[", "elements", "]"}]}], ",", 
        RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"pols", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", 
          RowBox[{"Polygon", "[", 
           RowBox[{"nodes", ",", 
            RowBox[{"elements", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", ";;"}], "]"}], "]"}]}], "]"}]}], ";"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"pols", "=", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Polygon", "[", 
            RowBox[{"nodes", ",", 
             RowBox[{"elements", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "1", ",", 
             RowBox[{"Length", "[", "elements", "]"}]}], "}"}]}], "]"}]}], 
        ";"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"Join", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"i", ",", 
                RowBox[{"FontSize", "->", "0"}], ",", 
                RowBox[{"FontFamily", "->", "\"\<Times New Roman\>\""}], ",", 
                "Bold"}], "]"}], ",", 
              RowBox[{
               RowBox[{"nodes", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "+", 
               RowBox[{"{", 
                RowBox[{"0.001", ",", "0.001"}], "}"}]}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"Length", "[", "nodes", "]"}]}], "}"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"EdgeForm", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Thickness", "[", "0.001", "]"}], ",", "Blue"}], "}"}],
              "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Pink", ",", 
            RowBox[{"FaceForm", "[", 
             RowBox[{"Opacity", "[", "0.5", "]"}], "]"}]}], "}"}], ",", 
          "pols", ",", "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"PointSize", "[", "0.003", "]"}], ",", 
            RowBox[{"Point", "[", "nodes", "]"}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", "Blue", "}"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"i", ",", 
                RowBox[{"FontSize", "->", "0"}], ",", 
                RowBox[{"FontFamily", "->", "\"\<Times New Roman\>\""}], ",", 
                "Bold"}], "]"}], ",", 
              RowBox[{"Mean", "[", 
               RowBox[{"nodes", "[", 
                RowBox[{"[", 
                 RowBox[{"elements", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "]"}]}], 
             "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "1", ",", 
              RowBox[{"Length", "[", "elements", "]"}]}], "}"}]}], "]"}], ",",
           "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"Text", "[", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{
               RowBox[{"\"\<mesh\>\"", "<>", 
                RowBox[{"ToString", "[", "meshNo", "]"}]}], ",", 
               RowBox[{"FontSize", "->", "0"}], ",", 
               RowBox[{"FontFamily", "->", "\"\<Times New Roman\>\""}], ",", 
               "Bold"}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"0.0", ",", "0.025"}], "}"}]}], "]"}], "}"}]}], 
         "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"ImageSize", "->", 
         RowBox[{"{", 
          RowBox[{"1500", ",", "500"}], "}"}]}]}], "\[IndentingNewLine]", 
       "]"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.912987288921388*^9, 3.9129873152283764`*^9}, 
   3.912988757270477*^9, {3.913019160291338*^9, 3.913019164614944*^9}, {
   3.91354104083257*^9, 3.9135410410855756`*^9}, 3.913542440299768*^9, {
   3.913547996826795*^9, 3.913548000528793*^9}, 3.913587976351252*^9, 
   3.9135905230858183`*^9, 3.914160857601931*^9, 3.9144715400391273`*^9, 
   3.914471631862699*^9, 3.914472781871264*^9, 3.914478914221942*^9, {
   3.914627575821853*^9, 3.914627596848064*^9}, {3.914627956268795*^9, 
   3.914627964273644*^9}, 3.914628693203515*^9, {3.914662977775271*^9, 
   3.914662984636485*^9}, {3.914663468661644*^9, 3.914663470000727*^9}, {
   3.9147095682617016`*^9, 3.914709641129645*^9}, {3.914709673614123*^9, 
   3.914709760630423*^9}, {3.914709805551324*^9, 3.914709892119897*^9}, {
   3.914709930476046*^9, 3.914709931524098*^9}, {3.914709971490074*^9, 
   3.914709992148958*^9}, {3.914729846662271*^9, 3.914729847808923*^9}, {
   3.914791429623089*^9, 3.914791641950845*^9}, {3.9147944573348613`*^9, 
   3.914794466254977*^9}, 3.9149412221661863`*^9, {3.915156801250729*^9, 
   3.915156824590236*^9}, {3.915156855309546*^9, 3.915156857439153*^9}, {
   3.915156953014277*^9, 3.9151569775392723`*^9}, {3.915184001715164*^9, 
   3.915184016765209*^9}, {3.915184289725728*^9, 3.915184292733837*^9}, {
   3.915524559066571*^9, 3.91552459137671*^9}, {3.9155246551668253`*^9, 
   3.915524692900531*^9}, {3.9155247323697195`*^9, 3.915524766077645*^9}, {
   3.915524813251138*^9, 3.915524817355047*^9}, {3.915524848202929*^9, 
   3.915524850076146*^9}, {3.9155254363254433`*^9, 3.9155254572762146`*^9}, {
   3.91597367595683*^9, 3.915973711343951*^9}, {3.915973842274027*^9, 
   3.9159738648615313`*^9}, {3.916446160427717*^9, 3.916446195801813*^9}, {
   3.916446230297879*^9, 3.916446252170735*^9}, 3.916560242423668*^9, {
   3.916560281879509*^9, 3.9165602981946993`*^9}, {3.916893613834244*^9, 
   3.916893645427127*^9}, 3.9168939201419525`*^9, {3.9168939689385977`*^9, 
   3.916893984823741*^9}, {3.9168941720356174`*^9, 3.916894174921604*^9}, {
   3.918437109464759*^9, 3.9184371369961667`*^9}, 3.918437292274948*^9, {
   3.918642200949917*^9, 3.918642227773598*^9}, 3.9186422857329063`*^9, 
   3.918642417806839*^9, {3.918642567159122*^9, 3.918642576451586*^9}, 
   3.918647275730194*^9, {3.919502072931904*^9, 3.919502096735901*^9}, {
   3.9196357914320335`*^9, 3.9196358244326706`*^9}, {3.9196359978070736`*^9, 
   3.9196360152803593`*^9}, 3.9196362141518383`*^9, 3.9207099373087635`*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"0ac0063f-d469-410d-8d09-f121897997d0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"meshNo", "=", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"E0", "=", 
   RowBox[{"33.5", "*", 
    RowBox[{"10", "^", "9"}]}]}], ";", 
  RowBox[{"v", "=", "0.2"}], ";", 
  RowBox[{"\[Rho]", "=", "2549.0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gcoord", "=", 
   RowBox[{
    RowBox[{"Import", "[", "\"\<nodal_coordinates.xlsx\>\"", "]"}], "[", 
    RowBox[{"[", "meshNo", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gnum", "=", 
   RowBox[{
    RowBox[{"readGnums", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Directory", "[", "]"}], "<>", 
       "\"\<\\\\nodal_numbering_for_elements.txt\>\""}], ",", "\"\<int\>\""}],
      "]"}], "[", 
    RowBox[{"[", "meshNo", "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"invHTs", "=", 
   RowBox[{"readGnums", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Directory", "[", "]"}], "<>", "\"\<\\\\invHT.txt\>\""}], ",", 
     "\"\<float\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"showMesh", "[", 
  RowBox[{"gcoord", ",", "gnum"}], "]"}]}], "Input",
 CellMargins->{{66, 45}, {5, 8}},
 CellChangeTimes->{{3.914627023913847*^9, 3.914627054190919*^9}, {
   3.914627494920844*^9, 3.914627502422665*^9}, 3.9147086480903854`*^9, 
   3.9147090137974515`*^9, 3.91470939355904*^9, {3.9147094451794233`*^9, 
   3.914709482870263*^9}, {3.915020767243227*^9, 3.915020772901944*^9}, {
   3.9150677940876403`*^9, 3.9150679516015453`*^9}, {3.9150682155123243`*^9, 
   3.915068234013399*^9}, {3.9150722401634607`*^9, 3.91507227177396*^9}, {
   3.915072328022052*^9, 3.91507247348205*^9}, {3.9150728850873785`*^9, 
   3.915072946226247*^9}, {3.915073195125935*^9, 3.9150731959265366`*^9}, 
   3.915075844913*^9, {3.915143205890283*^9, 3.915143229760213*^9}, 
   3.915156893024514*^9, {3.915157010605943*^9, 3.915157030136268*^9}, {
   3.915157088768511*^9, 3.9151570980870795`*^9}, 3.91515741750196*^9, 
   3.915157956730797*^9, {3.915158140907092*^9, 3.9151581564215775`*^9}, {
   3.915158789163667*^9, 3.915158844379568*^9}, 3.915161294307143*^9, {
   3.915161420577108*^9, 3.915161436076214*^9}, {3.915162125953844*^9, 
   3.915162152253141*^9}, {3.915162843338579*^9, 3.915162858354648*^9}, {
   3.915163324439162*^9, 3.91516332560269*^9}, {3.91516345704464*^9, 
   3.9151635046004143`*^9}, 3.9151644194555707`*^9, 3.91516514717836*^9, 
   3.915165740748003*^9, 3.915183949790345*^9, {3.9151840262262588`*^9, 
   3.9151841255474453`*^9}, {3.915184238098654*^9, 3.915184268015937*^9}, 
   3.9151853519855075`*^9, 3.915185610178946*^9, 3.915188207197714*^9, {
   3.915188666646138*^9, 3.915188706369105*^9}, {3.915189425755952*^9, 
   3.9151894259862037`*^9}, 3.915314725794742*^9, {3.915315703838427*^9, 
   3.915315758244468*^9}, {3.9153197963479156`*^9, 3.9153197965064316`*^9}, {
   3.915319840559995*^9, 3.915319866061718*^9}, {3.915327241249809*^9, 
   3.915327246262496*^9}, 3.915327281478956*^9, {3.915333020773527*^9, 
   3.915333064126977*^9}, 3.915337913450035*^9, 3.91552449847989*^9, 
   3.915524710980361*^9, {3.915524932394492*^9, 3.9155249334396787`*^9}, {
   3.9155250691552167`*^9, 3.915525132297936*^9}, {3.915525392063938*^9, 
   3.915525408014585*^9}, {3.91560056847634*^9, 3.915600641841975*^9}, 
   3.915600689878366*^9, 3.915666193658184*^9, 3.915667482493803*^9, {
   3.915672655807593*^9, 3.915672656121791*^9}, 3.915672687673206*^9, 
   3.915677073013459*^9, {3.915829619487219*^9, 3.915829631389774*^9}, 
   3.915874829886636*^9, 3.915876078813003*^9, 3.915882677600156*^9, 
   3.9158849921016307`*^9, {3.915885671728121*^9, 3.915885683851822*^9}, {
   3.915886181921825*^9, 3.915886186967521*^9}, {3.915973646624256*^9, 
   3.915973657360047*^9}, 3.916007356961706*^9, 3.916027451100031*^9, 
   3.91603546313242*^9, {3.916445855450262*^9, 3.916445874834794*^9}, {
   3.916446095010756*^9, 3.916446100865367*^9}, 3.916446309364412*^9, {
   3.916484054561128*^9, 3.916484056495269*^9}, 3.9167357456780396`*^9, 
   3.916893601626361*^9, {3.9168942800617447`*^9, 3.916894293063285*^9}, 
   3.918431248705207*^9, {3.918431286410716*^9, 3.918431307388178*^9}, 
   3.918642116091907*^9, {3.918642586448486*^9, 3.9186425910214024`*^9}, {
   3.918856863666224*^9, 3.918856887339306*^9}, {3.918887779892138*^9, 
   3.918887793984167*^9}, {3.918888083912245*^9, 3.918888088719244*^9}, {
   3.9188979170737934`*^9, 3.91889792132381*^9}, {3.918947110427447*^9, 
   3.918947124998606*^9}, 3.9189741784143195`*^9, 3.9189746953772717`*^9, {
   3.9189769358762827`*^9, 3.9189769430233593`*^9}, 3.919501861921547*^9, {
   3.919501963638117*^9, 3.919501965437193*^9}, {3.91950201575106*^9, 
   3.919502055405777*^9}, {3.9207099127466855`*^9, 3.920709912880076*^9}, {
   3.9306460810392785`*^9, 3.9306460866097736`*^9}, {3.9306494298252506`*^9, 
   3.9306494612492933`*^9}},ExpressionUUID->"3d8ac9bc-6f9c-439a-970f-\
de03382c3d9e"],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    StyleBox["1",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.999, 5.226}], InsetBox[
    StyleBox["2",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.7168, 5.226}], InsetBox[
    StyleBox["3",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.2082, 5.226}], InsetBox[
    StyleBox["4",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-6.574, 5.226}], InsetBox[
    StyleBox["5",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.9398, 5.226}], InsetBox[
    StyleBox["6",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.4312, 5.226}], InsetBox[
    StyleBox["7",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 5.226}], InsetBox[
    StyleBox["8",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 5.226}], InsetBox[
    StyleBox["9",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 5.226}], InsetBox[
    StyleBox["10",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.6163, 5.226}], InsetBox[
    StyleBox["11",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.196899999999999, 5.226}], InsetBox[
    StyleBox["12",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.674, 5.226}], InsetBox[
    StyleBox["13",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.1511, 5.226}], InsetBox[
    StyleBox["14",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.7317, 5.226}], InsetBox[
    StyleBox["15",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.499, 5.226}], InsetBox[
    StyleBox["16",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.2663, 5.226}], InsetBox[
    StyleBox["17",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.8469000000000002, 5.226}], InsetBox[
    StyleBox["18",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.324, 5.226}], InsetBox[
    StyleBox["19",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.8011, 5.226}], InsetBox[
    StyleBox["20",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.3817, 5.226}], InsetBox[
    StyleBox["21",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 5.226}], InsetBox[
    StyleBox["22",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 5.226}], InsetBox[
    StyleBox["23",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 5.226}], InsetBox[
    StyleBox["24",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.3837, 5.226}], InsetBox[
    StyleBox["25",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.8031, 5.226}], InsetBox[
    StyleBox["26",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.3259999999999998, 5.226}], InsetBox[
    StyleBox["27",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.8489, 5.226}], InsetBox[
    StyleBox["28",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.2683, 5.226}], InsetBox[
    StyleBox["29",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.501, 5.226}], InsetBox[
    StyleBox["30",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.7337, 5.226}], InsetBox[
    StyleBox["31",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.1531, 5.226}], InsetBox[
    StyleBox["32",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.6759999999999997, 5.226}], InsetBox[
    StyleBox["33",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.1989, 5.226}], InsetBox[
    StyleBox["34",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.6183000000000005, 5.226}], InsetBox[
    StyleBox["35",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 5.226}], InsetBox[
    StyleBox["36",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 5.226}], InsetBox[
    StyleBox["37",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 5.226}], InsetBox[
    StyleBox["38",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.4332, 5.226}], InsetBox[
    StyleBox["39",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.941800000000001, 5.226}], InsetBox[
    StyleBox["40",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {6.5760000000000005, 5.226}], InsetBox[
    StyleBox["41",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {7.2102, 5.226}], InsetBox[
    StyleBox["42",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {7.718800000000001, 5.226}], InsetBox[
    StyleBox["43",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {8.001, 5.226}], InsetBox[
    StyleBox["44",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.999, 5.126}], InsetBox[
    StyleBox["45",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 5.126}], InsetBox[
    StyleBox["46",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 5.126}], InsetBox[
    StyleBox["47",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.499, 5.126}], InsetBox[
    StyleBox["48",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 5.126}], InsetBox[
    StyleBox["49",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 5.126}], InsetBox[
    StyleBox["50",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.501, 5.126}], InsetBox[
    StyleBox["51",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 5.126}], InsetBox[
    StyleBox["52",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 5.126}], InsetBox[
    StyleBox["53",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {8.001, 5.126}], InsetBox[
    StyleBox["54",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.999, 5.026000000000001}], InsetBox[
    StyleBox["55",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.7168, 5.026000000000001}], InsetBox[
    StyleBox["56",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-7.2082, 5.026000000000001}], InsetBox[
    StyleBox["57",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-6.574, 5.026000000000001}], InsetBox[
    StyleBox["58",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.9398, 5.026000000000001}], InsetBox[
    StyleBox["59",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.4312, 5.026000000000001}], InsetBox[
    StyleBox["60",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 5.026000000000001}], InsetBox[
    StyleBox["61",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 5.026000000000001}], InsetBox[
    StyleBox["62",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 5.026000000000001}], InsetBox[
    StyleBox["63",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.6163, 5.026000000000001}], InsetBox[
    StyleBox["64",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.196899999999999, 5.026000000000001}], InsetBox[
    StyleBox["65",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.674, 5.026000000000001}], InsetBox[
    StyleBox["66",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.1511, 5.026000000000001}], InsetBox[
    StyleBox["67",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.7317, 5.026000000000001}], InsetBox[
    StyleBox["68",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.499, 5.026000000000001}], InsetBox[
    StyleBox["69",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.2663, 5.026000000000001}], InsetBox[
    StyleBox["70",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.8469000000000002, 5.026000000000001}], InsetBox[
    StyleBox["71",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.324, 5.026000000000001}], InsetBox[
    StyleBox["72",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.8011, 5.026000000000001}], InsetBox[
    StyleBox["73",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.3817, 5.026000000000001}], InsetBox[
    StyleBox["74",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 5.026000000000001}], InsetBox[
    StyleBox["75",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 5.026000000000001}], InsetBox[
    StyleBox["76",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 5.026000000000001}], InsetBox[
    StyleBox["77",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.3837, 5.026000000000001}], InsetBox[
    StyleBox["78",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.8031, 5.026000000000001}], InsetBox[
    StyleBox["79",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.3259999999999998, 5.026000000000001}], InsetBox[
    StyleBox["80",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.8489, 5.026000000000001}], InsetBox[
    StyleBox["81",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.2683, 5.026000000000001}], InsetBox[
    StyleBox["82",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.501, 5.026000000000001}], InsetBox[
    StyleBox["83",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.7337, 5.026000000000001}], InsetBox[
    StyleBox["84",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.1531, 5.026000000000001}], InsetBox[
    StyleBox["85",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.6759999999999997, 5.026000000000001}], InsetBox[
    StyleBox["86",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.1989, 5.026000000000001}], InsetBox[
    StyleBox["87",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.6183000000000005, 5.026000000000001}], InsetBox[
    StyleBox["88",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 5.026000000000001}], InsetBox[
    StyleBox["89",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 5.026000000000001}], InsetBox[
    StyleBox["90",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 5.026000000000001}], InsetBox[
    StyleBox["91",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.4332, 5.026000000000001}], InsetBox[
    StyleBox["92",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.941800000000001, 5.026000000000001}], InsetBox[
    StyleBox["93",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {6.5760000000000005, 5.026000000000001}], InsetBox[
    StyleBox["94",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {7.2102, 5.026000000000001}], InsetBox[
    StyleBox["95",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {7.718800000000001, 5.026000000000001}], InsetBox[
    StyleBox["96",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {8.001, 5.026000000000001}], InsetBox[
    StyleBox["97",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 4.7896}], InsetBox[
    StyleBox["98",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 4.7896}], InsetBox[
    StyleBox["99",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 4.7896}], InsetBox[
    StyleBox["100",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 4.7896}], InsetBox[
    StyleBox["101",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 4.7896}], InsetBox[
    StyleBox["102",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 4.7896}], InsetBox[
    StyleBox["103",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 4.3635}], InsetBox[
    StyleBox["104",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 4.3635}], InsetBox[
    StyleBox["105",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 4.3635}], InsetBox[
    StyleBox["106",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 4.3635}], InsetBox[
    StyleBox["107",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 4.3635}], InsetBox[
    StyleBox["108",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 4.3635}], InsetBox[
    StyleBox["109",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 3.8323}], InsetBox[
    StyleBox["110",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 3.8323}], InsetBox[
    StyleBox["111",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 3.8323}], InsetBox[
    StyleBox["112",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 3.8323}], InsetBox[
    StyleBox["113",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 3.8323}], InsetBox[
    StyleBox["114",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 3.8323}], InsetBox[
    StyleBox["115",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 3.3009999999999997}], InsetBox[
    StyleBox["116",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 3.3009999999999997}], InsetBox[
    StyleBox["117",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 3.3009999999999997}], InsetBox[
    StyleBox["118",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 3.3009999999999997}], InsetBox[
    StyleBox["119",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 3.3009999999999997}], InsetBox[
    StyleBox["120",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 3.3009999999999997}], InsetBox[
    StyleBox["121",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 2.8749}], InsetBox[
    StyleBox["122",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 2.8749}], InsetBox[
    StyleBox["123",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 2.8749}], InsetBox[
    StyleBox["124",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 2.8749}], InsetBox[
    StyleBox["125",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 2.8749}], InsetBox[
    StyleBox["126",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 2.8749}], InsetBox[
    StyleBox["127",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 2.6385}], InsetBox[
    StyleBox["128",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 2.6385}], InsetBox[
    StyleBox["129",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 2.6385}], InsetBox[
    StyleBox["130",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 2.6385}], InsetBox[
    StyleBox["131",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 2.6385}], InsetBox[
    StyleBox["132",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 2.6385}], InsetBox[
    StyleBox["133",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 2.6385}], InsetBox[
    StyleBox["134",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 2.6385}], InsetBox[
    StyleBox["135",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 2.6385}], InsetBox[
    StyleBox["136",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 2.4021}], InsetBox[
    StyleBox["137",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 2.4021}], InsetBox[
    StyleBox["138",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 2.4021}], InsetBox[
    StyleBox["139",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 2.4021}], InsetBox[
    StyleBox["140",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 2.4021}], InsetBox[
    StyleBox["141",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 2.4021}], InsetBox[
    StyleBox["142",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 1.976}], InsetBox[
    StyleBox["143",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 1.976}], InsetBox[
    StyleBox["144",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 1.976}], InsetBox[
    StyleBox["145",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 1.976}], InsetBox[
    StyleBox["146",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 1.976}], InsetBox[
    StyleBox["147",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 1.976}], InsetBox[
    StyleBox["148",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 1.4447999999999999}], InsetBox[
    StyleBox["149",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 1.4447999999999999}], InsetBox[
    StyleBox["150",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 1.4447999999999999}], InsetBox[
    StyleBox["151",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 1.4447999999999999}], InsetBox[
    StyleBox["152",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 1.4447999999999999}], InsetBox[
    StyleBox["153",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 1.4447999999999999}], InsetBox[
    StyleBox["154",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 0.9135}], InsetBox[
    StyleBox["155",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 0.9135}], InsetBox[
    StyleBox["156",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 0.9135}], InsetBox[
    StyleBox["157",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 0.9135}], InsetBox[
    StyleBox["158",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 0.9135}], InsetBox[
    StyleBox["159",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 0.9135}], InsetBox[
    StyleBox["160",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 0.4874}], InsetBox[
    StyleBox["161",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 0.4874}], InsetBox[
    StyleBox["162",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 0.4874}], InsetBox[
    StyleBox["163",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 0.4874}], InsetBox[
    StyleBox["164",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 0.4874}], InsetBox[
    StyleBox["165",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 0.4874}], InsetBox[
    StyleBox["166",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 0.251}], InsetBox[
    StyleBox["167",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 0.251}], InsetBox[
    StyleBox["168",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 0.251}], InsetBox[
    StyleBox["169",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.6163, 0.251}], InsetBox[
    StyleBox["170",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.196899999999999, 0.251}], InsetBox[
    StyleBox["171",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.674, 0.251}], InsetBox[
    StyleBox["172",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.1511, 0.251}], InsetBox[
    StyleBox["173",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.7317, 0.251}], InsetBox[
    StyleBox["174",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.499, 0.251}], InsetBox[
    StyleBox["175",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.2663, 0.251}], InsetBox[
    StyleBox["176",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.8469000000000002, 0.251}], InsetBox[
    StyleBox["177",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.324, 0.251}], InsetBox[
    StyleBox["178",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.8011, 0.251}], InsetBox[
    StyleBox["179",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.3817, 0.251}], InsetBox[
    StyleBox["180",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 0.251}], InsetBox[
    StyleBox["181",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 0.251}], InsetBox[
    StyleBox["182",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 0.251}], InsetBox[
    StyleBox["183",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.3837, 0.251}], InsetBox[
    StyleBox["184",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.8031, 0.251}], InsetBox[
    StyleBox["185",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.3259999999999998, 0.251}], InsetBox[
    StyleBox["186",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.8489, 0.251}], InsetBox[
    StyleBox["187",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.2683, 0.251}], InsetBox[
    StyleBox["188",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.501, 0.251}], InsetBox[
    StyleBox["189",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.7337, 0.251}], InsetBox[
    StyleBox["190",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.1531, 0.251}], InsetBox[
    StyleBox["191",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.6759999999999997, 0.251}], InsetBox[
    StyleBox["192",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.1989, 0.251}], InsetBox[
    StyleBox["193",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.6183000000000005, 0.251}], InsetBox[
    StyleBox["194",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 0.251}], InsetBox[
    StyleBox["195",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 0.251}], InsetBox[
    StyleBox["196",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 0.251}], InsetBox[
    StyleBox["197",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 0.126}], InsetBox[
    StyleBox["198",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 0.126}], InsetBox[
    StyleBox["199",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.499, 0.126}], InsetBox[
    StyleBox["200",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 0.126}], InsetBox[
    StyleBox["201",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 0.126}], InsetBox[
    StyleBox["202",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.501, 0.126}], InsetBox[
    StyleBox["203",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 0.126}], InsetBox[
    StyleBox["204",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 0.126}], InsetBox[
    StyleBox["205",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-5.149, 0.001}], InsetBox[
    StyleBox["206",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 0.001}], InsetBox[
    StyleBox["207",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.848999999999999, 0.001}], InsetBox[
    StyleBox["208",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.6163, 0.001}], InsetBox[
    StyleBox["209",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.196899999999999, 0.001}], InsetBox[
    StyleBox["210",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.674, 0.001}], InsetBox[
    StyleBox["211",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-3.1511, 0.001}], InsetBox[
    StyleBox["212",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.7317, 0.001}], InsetBox[
    StyleBox["213",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.499, 0.001}], InsetBox[
    StyleBox["214",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-2.2663, 0.001}], InsetBox[
    StyleBox["215",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.8469000000000002, 0.001}], InsetBox[
    StyleBox["216",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-1.324, 0.001}], InsetBox[
    StyleBox["217",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.8011, 0.001}], InsetBox[
    StyleBox["218",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.3817, 0.001}], InsetBox[
    StyleBox["219",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-0.149, 0.001}], InsetBox[
    StyleBox["220",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 0.001}], InsetBox[
    StyleBox["221",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.151, 0.001}], InsetBox[
    StyleBox["222",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.3837, 0.001}], InsetBox[
    StyleBox["223",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.8031, 0.001}], InsetBox[
    StyleBox["224",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.3259999999999998, 0.001}], InsetBox[
    StyleBox["225",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {1.8489, 0.001}], InsetBox[
    StyleBox["226",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.2683, 0.001}], InsetBox[
    StyleBox["227",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.501, 0.001}], InsetBox[
    StyleBox["228",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {2.7337, 0.001}], InsetBox[
    StyleBox["229",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.1531, 0.001}], InsetBox[
    StyleBox["230",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {3.6759999999999997, 0.001}], InsetBox[
    StyleBox["231",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.1989, 0.001}], InsetBox[
    StyleBox["232",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.6183000000000005, 0.001}], InsetBox[
    StyleBox["233",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {4.851, 0.001}], InsetBox[
    StyleBox["234",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 0.001}], InsetBox[
    StyleBox["235",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.151000000000001, 0.001}], InsetBox[
    StyleBox["236",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 5.126}], InsetBox[
    StyleBox["237",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 5.126}], InsetBox[
    StyleBox["238",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 5.126}], InsetBox[
    StyleBox["239",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {-4.999, 0.126}], InsetBox[
    StyleBox["240",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {0.001, 0.126}], InsetBox[
    StyleBox["241",
     StripOnInput->False,
     FontFamily->"Times New Roman",
     FontSize->0,
     FontWeight->Bold], {5.001, 0.126}], 
   {RGBColor[1, 0.5, 0.5], EdgeForm[{RGBColor[0, 0, 1], Thickness[0.001]}], 
    FaceForm[Opacity[0.5]], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {1, 44, 54, 55, 56, 57, 58, 59, 60, 45, 7, 6, 5, 4, 3, 2}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {60, 61, 62, 46, 9, 8, 7, 45, 236}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {9, 46, 62, 63, 64, 65, 66, 67, 68, 47, 15, 14, 13, 12, 11, 10}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {15, 47, 68, 69, 70, 71, 72, 73, 74, 48, 21, 20, 19, 18, 17, 16}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {74, 75, 76, 49, 23, 22, 21, 48, 237}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {23, 49, 76, 77, 78, 79, 80, 81, 82, 50, 29, 28, 27, 26, 25, 24}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {29, 50, 82, 83, 84, 85, 86, 87, 88, 51, 35, 34, 33, 32, 31, 30}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {88, 89, 90, 52, 37, 36, 35, 51, 238}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {37, 52, 90, 91, 92, 93, 94, 95, 96, 53, 43, 42, 41, 40, 39, 38}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {62, 61, 60, 97, 103, 109, 115, 121, 127, 128, 129, 122, 116, 110, 
     104, 98}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {76, 75, 74, 99, 105, 111, 117, 123, 130, 131, 132, 124, 118, 112, 
     106, 100}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {90, 89, 88, 101, 107, 113, 119, 125, 133, 134, 135, 126, 120, 114, 
     108, 102}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {129, 128, 127, 136, 142, 148, 154, 160, 166, 167, 168, 161, 155, 
     149, 143, 137}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {132, 131, 130, 138, 144, 150, 156, 162, 180, 181, 182, 163, 157, 
     151, 145, 139}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {135, 134, 133, 140, 146, 152, 158, 164, 194, 195, 196, 165, 159, 
     153, 147, 141}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {205, 206, 207, 198, 168, 167, 166, 197, 239}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {168, 198, 207, 208, 209, 210, 211, 212, 213, 199, 174, 173, 172, 
     171, 170, 169}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {174, 199, 213, 214, 215, 216, 217, 218, 219, 200, 180, 179, 178, 
     177, 176, 175}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {219, 220, 221, 201, 182, 181, 180, 200, 240}], 
    PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {182, 201, 221, 222, 223, 224, 225, 226, 227, 202, 188, 187, 186, 
     185, 184, 183}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {188, 202, 227, 228, 229, 230, 231, 232, 233, 203, 194, 193, 192, 
     191, 190, 189}], PolygonBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
     "], {233, 234, 235, 204, 196, 195, 194, 203, 241}], 
    {RGBColor[1, 0, 0], PointSize[0.003], PointBox[CompressedData["
1:eJxdlj9oVEEQxpfkXkQlot6JRFQSDNFGRaIoWOxWEiUE/NNYiYKx0hQJGBD1
IJBWDYJEiCBiCjuxs7nFM40aUYtgIaQRQcHCIlqFeLm337fMtxCOX3bezOzs
N29e35Wxc1c7nHN/Wn/rv+XqjaPr60ctTJx6+LdreS955czF6RNLu8mLH1pr
eBf5+UioXm7uJA+cL57NvN5Bfjy7vmrkMl7m9u9olVwfatzeM7mdfGvq8PD8
u61i301eWrh+tH58Y87v5MjnB98KiVchD759eejGvg7yhYn+R2v3Vxvcb68V
8sD3qSeLL36SOyc39x+481Xsmw0bzznZ9/K8F/9e4nvJL++X+Qc5Hzmdn5zq
Q071I6f6klP9xb4q8WrkdL/kdP/kpI+cX6kfctIXOelP4vUqx/ZPPesLDD2B
cf9g3JewF/sg/sg4r7XvVY5tu57cT2D0Exj9BEY/gdFPYJwXjH4C4/xg9BMY
/WTtu8noJ+aX+snGq5DRT2D0E/dTP/E8qZ/A6Cdr32zYeM7Jvpfnvfj3Et9L
fl7yD3K+IOcPUp8g9QtS3yD1F/uqxKsFuV8y+kn0kfNL/ST6IqOfbLxejRfn
6gNvpvdXqR8w7kPYi30AI3/h2H5sfBv9g+Ff2It9AMO/cJw6e3quPr+F/sHw
L+zFPoDhX7icF6Ob7LxqsXn/Z/ZiH8DmfZk5zry/O9RY7aJ/MPwLe7EPYPgX
Tv1ZyPuikPdFIf1XSP8V0n+F6LkQPReiZ3J8eu3Vr/FjnYwPRnxhL/YBDP/C
5Xlm17w5X4vN+TJ7sQ9gk3/m+GXs0oaPPf/oHwz/wl7sAxj+hcv+GPxN/2DT
L5m92Aew6ZfMceHekZsH+5bpHwz/wl7sAxj+hct56z556A2MeGDMJzDmk7Xv
JmM+gTGfbLwKGfMJjPnE/fZaIWM+gTGfrH2T7Mzivpfnvfj31n6FjPkk+Qc5
HxnzSepDxnyS+pIxn6x9VeLVyOb7J3Oqb5T7jXIfUeoXpV5Rzhclnyjxo8TH
ymzzaX2iGb05Z/UG+26y1ZtzVm9YFbLVm3NWb619ozfnrN6cs3qDfZOsy9aP
z5Ot3hifbPXG/IOcj2z1xvqQrd5YX7LVG+9H4sl332xN92PpTP5fz99TwqU9
9YUVRd/R/wcLbPLg
      "]], 
     {RGBColor[0, 0, 1], InsetBox[
       StyleBox["1",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-6.575, 5.124999999999998}], InsetBox[
       StyleBox["2",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-5., 5.125000000000001}], InsetBox[
       StyleBox["3",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-3.6749999999999994, 5.124999999999998}], InsetBox[
       StyleBox["4",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-1.325, 5.124999999999998}], InsetBox[
       StyleBox["5",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {0., 5.125000000000001}], InsetBox[
       StyleBox["6",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {1.325, 5.124999999999998}], InsetBox[
       StyleBox["7",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {3.675, 5.124999999999998}], InsetBox[
       StyleBox["8",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {5., 5.125000000000001}], InsetBox[
       StyleBox["9",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {6.574999999999999, 5.124999999999998}], InsetBox[
       StyleBox["10",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-4.999999999999998, 3.8312562500000005}], InsetBox[
       StyleBox["11",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {3.469446951953614*^-18, 3.8312562500000005}], 
      InsetBox[
       StyleBox["12",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {5.000000000000002, 3.8312562500000005}], InsetBox[
       StyleBox["13",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-4.999999999999998, 1.44375625}], InsetBox[
       StyleBox["14",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {3.469446951953614*^-18, 1.44375625}], InsetBox[
       StyleBox["15",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {5.000000000000002, 1.44375625}], InsetBox[
       StyleBox["16",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-5., 0.125}], InsetBox[
       StyleBox["17",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-3.6749999999999994, 0.125}], InsetBox[
       StyleBox["18",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {-1.325, 0.125}], InsetBox[
       StyleBox["19",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {0., 0.125}], InsetBox[
       StyleBox["20",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {1.325, 0.125}], InsetBox[
       StyleBox["21",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {3.675, 0.125}], InsetBox[
       StyleBox["22",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {5., 0.125}], InsetBox[
       StyleBox["\<\"mesh10\"\>",
        StripOnInput->False,
        FontFamily->"Times New Roman",
        FontSize->0,
        FontWeight->Bold], {0., 0.025}]}}}},
  ImageSize->{793.5, 265.}]], "Output",
 CellChangeTimes->{
  3.916126217834478*^9, 3.916174397726889*^9, 3.9164461084589577`*^9, {
   3.916446150618756*^9, 3.916446197524566*^9}, {3.916446233643328*^9, 
   3.916446253958228*^9}, 3.916446310627398*^9, 3.916446389356768*^9, 
   3.916446476762486*^9, 3.91644665813368*^9, 3.916446735025339*^9, 
   3.916446799228699*^9, 3.916446860074776*^9, 3.916446943410248*^9, 
   3.916447109568576*^9, 3.916484128427582*^9, 3.916559073884102*^9, 
   3.916560246753411*^9, {3.91656028523902*^9, 3.916560322456604*^9}, 
   3.91673574996924*^9, {3.916893605379995*^9, 3.9168936477142873`*^9}, 
   3.916893922869195*^9, {3.9168939728162904`*^9, 3.916893987548421*^9}, {
   3.916894148437421*^9, 3.916894177989298*^9}, 3.916894333011102*^9, 
   3.916897487620512*^9, 3.918431308850196*^9, 3.918433386284092*^9, {
   3.9184371180559435`*^9, 3.918437139282157*^9}, 3.918437295306092*^9, 
   3.918642118941841*^9, {3.918642203706545*^9, 3.918642230696308*^9}, 
   3.918642288009746*^9, 3.9186424196325827`*^9, {3.918642570761345*^9, 
   3.918642591569897*^9}, 3.918642663726702*^9, 3.918642754373041*^9, 
   3.918642971544241*^9, {3.9186472665475216`*^9, 3.918647278425353*^9}, {
   3.918856848064951*^9, 3.9188568892035265`*^9}, 3.9188877980971355`*^9, 
   3.91888789013216*^9, 3.918888091892246*^9, 3.91889792710096*^9, 
   3.9189471304056377`*^9, 3.918974183274468*^9, {3.918974696593314*^9, 
   3.9189747008142085`*^9}, 3.918981955636501*^9, 3.919052327601729*^9, 
   3.91919630677178*^9, 3.919501891247963*^9, {3.919502035651659*^9, 
   3.919502099543146*^9}, 3.9195381824379206`*^9, {3.9196357858158455`*^9, 
   3.91963582636631*^9}, {3.9196360005190945`*^9, 3.919636017297577*^9}, 
   3.9196362168616486`*^9, {3.920709917143385*^9, 3.920709944847641*^9}, 
   3.920710663355035*^9, 3.9208511807238607`*^9, 3.930646134290024*^9, 
   3.930646198190295*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"8699b269-f1e2-41ca-93cc-01f6b00225a1"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"k1", "=", 
   RowBox[{"k0", "[", 
    RowBox[{"gcoord", ",", "gnum", ",", "invHTs", ",", "E0", ",", "v"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.915188497861291*^9, 3.915188545840395*^9}, {
   3.915314440021154*^9, 3.9153144412480464`*^9}, {3.915314741859283*^9, 
   3.915314742115343*^9}, {3.9153147760966654`*^9, 3.915314776309316*^9}, {
   3.915314810766548*^9, 3.91531482604624*^9}, 3.915314905883181*^9, {
   3.916446299091031*^9, 3.916446322549474*^9}, 3.930646093408695*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"5e455bd7-a5c4-41c4-90cd-62f76c841170"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m1", "=", 
   RowBox[{"m0", "[", 
    RowBox[{"gcoord", ",", "gnum", ",", "invHTs", ",", "\[Rho]"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.915188497861291*^9, 3.915188545840395*^9}, {
   3.915314440021154*^9, 3.9153144412480464`*^9}, {3.915314741859283*^9, 
   3.915314742115343*^9}, {3.9153147760966654`*^9, 3.915314776309316*^9}, {
   3.915314810766548*^9, 3.915314916020421*^9}, {3.91644630282203*^9, 
   3.916446327693974*^9}, 3.9306460952496653`*^9},
 CellLabel->"In[59]:=",ExpressionUUID->"4f5b1fd2-25d8-424c-94a0-b74c47e5fa3c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{
   RowBox[{"\"\<mesh\>\"", "<>", 
    RowBox[{"ToString", "[", "meshNo", "]"}], "<>", "\"\<_k0_m0.xlsx\>\""}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"k1", ",", "m1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.915188364231166*^9, 3.915188453959568*^9}, {
   3.91518855074876*^9, 3.915188551999058*^9}, {3.915188637741241*^9, 
   3.9151886420002594`*^9}, {3.915315543066429*^9, 3.915315543495462*^9}, {
   3.9153157116630507`*^9, 3.915315712179078*^9}, 3.915843954699464*^9, 
   3.915846378878*^9, 3.915851818643178*^9, 3.915852139351877*^9, 
   3.919502140990303*^9, 3.9207100396448145`*^9},
 CellLabel->"In[60]:=",ExpressionUUID->"99d48ec6-0150-4b35-811e-5735bc302335"],

Cell[BoxData["\<\"mesh10_k0_m0.xlsx\"\>"], "Output",
 CellChangeTimes->{
  3.915188457167923*^9, 3.915188554827448*^9, {3.915188646015475*^9, 
   3.915188720565056*^9}, 3.915189440211955*^9, 3.915315550945871*^9, {
   3.9153157180529556`*^9, 3.915315770963015*^9}, {3.915319834998719*^9, 
   3.915319877567315*^9}, {3.915333034764686*^9, 3.9153330801540995`*^9}, {
   3.9155251280608187`*^9, 3.915525145568822*^9}, {3.91552540487637*^9, 
   3.915525420670162*^9}, {3.915600685486327*^9, 3.915600703873816*^9}, {
   3.915666190622214*^9, 3.915666201918444*^9}, 3.915669059149454*^9, {
   3.915672682294968*^9, 3.915672703641189*^9}, 3.915829938678217*^9, 
   3.915834935010375*^9, 3.915835040367143*^9, 3.915843963670349*^9, 
   3.91584613717359*^9, 3.9158463879191*^9, 3.915850553296284*^9, 
   3.915851828195998*^9, 3.915852148225835*^9, 3.915856550409064*^9, 
   3.915856794582504*^9, 3.915871994645694*^9, 3.915875060593828*^9, 
   3.915876168047325*^9, 3.9158826199956636`*^9, 3.9158827285184*^9, 
   3.9159746571158047`*^9, 3.9159747377418995`*^9, 3.9159748268870106`*^9, 
   3.91597497593294*^9, 3.916011562302297*^9, 3.916028355672788*^9, 
   3.916446346840401*^9, 3.916446411311509*^9, 3.916446484361419*^9, 
   3.916446540599988*^9, 3.916446605252566*^9, 3.91644667444617*^9, 
   3.9164467515864935`*^9, 3.916446803705239*^9, 3.91644687846448*^9, 
   3.916446966139664*^9, 3.9164470313448405`*^9, 3.916447118699271*^9, 
   3.916484139638584*^9, 3.916735806882876*^9, 3.916895339601533*^9, 
   3.91689849645976*^9, 3.9184313669788847`*^9, 3.9184334524253817`*^9, 
   3.918647850312812*^9, 3.918898864871351*^9, 3.918974642178397*^9, 
   3.918975751918574*^9, 3.9195025979915676`*^9, 3.920710439974484*^9, 
   3.930646557918548*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"16e32a9f-7e8d-4a29-a8d1-927c7f994bac"]
}, Open  ]]
},
WindowToolbars->"MultipurposeBar",
WindowSize->{958.5, 1013.25},
WindowMargins->{{-5.25, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (2022\:5e7411\:670818\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"eef06152-2d75-4d07-b95b-7947a30417a7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 425, 8, 48, "Input",ExpressionUUID->"461a1470-9fb7-4e19-9881-a772bfa0a0ef"],
Cell[986, 30, 521, 9, 48, "Input",ExpressionUUID->"0211a539-57e7-4e29-82ba-5f1297c334fc"],
Cell[1510, 41, 1289, 24, 48, "Input",ExpressionUUID->"06efe3ac-ddd5-4e09-9be0-14f96acd54bb"],
Cell[2802, 67, 1291, 25, 428, "Input",ExpressionUUID->"83aa48c9-7ba5-42e6-9ff7-ec951efc1ee8"],
Cell[4096, 94, 99808, 2519, 2507, "Input",ExpressionUUID->"7d94a1cd-bdd2-495a-aaf2-26f3623a5ee6"],
Cell[103907, 2615, 1548, 37, 105, "Input",ExpressionUUID->"e1b1a601-a235-48bf-aca5-649f7ad7fcbf"],
Cell[105458, 2654, 2051, 49, 143, "Input",ExpressionUUID->"1029fe7f-2329-49a1-aee6-b78488f1ca84"],
Cell[107512, 2705, 3123, 78, 319, "Input",ExpressionUUID->"f614cef0-cd04-44e8-be4b-dbcd431e2e8f"],
Cell[110638, 2785, 12344, 295, 1007, "Input",ExpressionUUID->"550a052d-cdbf-4fa9-99e9-c7bdf53f0a42"],
Cell[122985, 3082, 5687, 126, 509, "Input",ExpressionUUID->"742209d4-4a56-47c0-9ceb-d58e701f2f48"],
Cell[128675, 3210, 7777, 173, 699, "Input",ExpressionUUID->"3fcbed99-fe9f-4bc9-bdde-ff033e1389f2"],
Cell[136455, 3385, 7620, 162, 390, "Input",ExpressionUUID->"0ac0063f-d469-410d-8d09-f121897997d0"],
Cell[CellGroupData[{
Cell[144100, 3551, 4866, 85, 124, "Input",ExpressionUUID->"3d8ac9bc-6f9c-439a-970f-de03382c3d9e"],
Cell[148969, 3638, 73693, 1856, 282, "Output",ExpressionUUID->"8699b269-f1e2-41ca-93cc-01f6b00225a1"]
}, Open  ]],
Cell[222677, 5497, 610, 11, 28, "Input",ExpressionUUID->"5e455bd7-a5c4-41c4-90cd-62f76c841170"],
Cell[223290, 5510, 582, 11, 28, "Input",ExpressionUUID->"4f5b1fd2-25d8-424c-94a0-b74c47e5fa3c"],
Cell[CellGroupData[{
Cell[223897, 5525, 727, 14, 28, "Input",ExpressionUUID->"99d48ec6-0150-4b35-811e-5735bc302335"],
Cell[224627, 5541, 1818, 26, 32, "Output",ExpressionUUID->"16e32a9f-7e8d-4a29-a8d1-927c7f994bac"]
}, Open  ]]
}
]
*)

